library(readr)
library(ggplot2)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2
## ──
## ✔ tibble 3.1.8 ✔ stringr 1.5.0
## ✔ tidyr 1.3.0 ✔ forcats 1.0.0
## ✔ purrr 1.0.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
library(grid)
library(cowplot)
library(factoextra)
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
library(corrplot)
## corrplot 0.92 loaded
library(devtools)
## Loading required package: usethis
library(FactoMineR)
library(ggfortify)
library(psych)
##
## Attaching package: 'psych'
##
## The following objects are masked from 'package:ggplot2':
##
## %+%, alpha
library(vctrs)
##
## Attaching package: 'vctrs'
##
## The following object is masked from 'package:tibble':
##
## data_frame
##
## The following object is masked from 'package:dplyr':
##
## data_frame
library(purrr)
library("corrplot")
tita <- read_csv("/Users/asrithanarra/Documents/Multivariate analysis/Titanic.csv")
## Rows: 891 Columns: 5
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (1): Survived
## dbl (4): PassengerId, Pclass, Age, Fare
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
str(tita)
## spc_tbl_ [891 × 5] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
## $ Survived : chr [1:891] "No" "yes" "yes" "yes" ...
## $ PassengerId: num [1:891] 1 2 3 4 5 6 7 8 9 10 ...
## $ Pclass : num [1:891] 3 1 3 1 3 3 1 3 3 2 ...
## $ Age : num [1:891] 22 38 26 35 35 10 54 2 27 14 ...
## $ Fare : num [1:891] 7.25 71.28 7.92 53.1 8.05 ...
## - attr(*, "spec")=
## .. cols(
## .. Survived = col_character(),
## .. PassengerId = col_double(),
## .. Pclass = col_double(),
## .. Age = col_double(),
## .. Fare = col_double()
## .. )
## - attr(*, "problems")=<externalptr>
attach(tita)
summary(tita)
## Survived PassengerId Pclass Age
## Length:891 Min. : 1.0 Min. :1.000 Min. : 1.00
## Class :character 1st Qu.:223.5 1st Qu.:2.000 1st Qu.:22.00
## Mode :character Median :446.0 Median :3.000 Median :28.00
## Mean :446.0 Mean :2.309 Mean :30.32
## 3rd Qu.:668.5 3rd Qu.:3.000 3rd Qu.:38.00
## Max. :891.0 Max. :3.000 Max. :92.00
## Fare
## Min. : 0.000
## 1st Qu.: 7.925
## Median : 15.100
## Mean : 33.389
## 3rd Qu.: 31.275
## Max. :512.329
cor(tita[-1])
## PassengerId Pclass Age Fare
## PassengerId 1.0000000000 -0.03514399 0.04815802 0.0008510998
## Pclass -0.0351439940 1.00000000 -0.30758636 -0.5431017648
## Age 0.0481580247 -0.30758636 1.00000000 0.0842967291
## Fare 0.0008510998 -0.54310176 0.08429673 1.0000000000
plot(tita[,-1])

library(GGally)
## Registered S3 method overwritten by 'GGally':
## method from
## +.gg ggplot2
ggpairs(tita[,c( "Survived","PassengerId", "Pclass", "Age","Fare")],aes(color = factor(Survived)))
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

p1 <- ggplot(tita, aes(x=PassengerId, y=Pclass, color=Survived)) + geom_point()
p2 <- ggplot(tita, aes(x=Age, y=Fare, color=Survived)) + geom_point()
p3 <- ggplot(tita, aes(x=Age, y=PassengerId, color=Survived)) + geom_point()
p4 <- ggplot(tita, aes(x=Pclass, y=Fare, color=Survived)) + geom_point()
plot_grid(p1, p2, p3, p4, labels = "AUTO")

tita_pca <- prcomp(tita[,-1],scale=TRUE)
tita_pca
## Standard deviations (1, .., p=4):
## [1] 1.2905711 1.0074002 0.9542240 0.6395527
##
## Rotation (n x k) = (4 x 4):
## PC1 PC2 PC3 PC4
## PassengerId 0.06565727 -0.90999815 -0.40894567 0.01886594
## Pclass -0.68367669 -0.05910479 0.05521554 0.72528894
## Age 0.39775028 -0.32819164 0.80738894 0.28671950
## Fare 0.60833381 0.24637418 -0.42170818 0.62561326
summary(tita_pca)
## Importance of components:
## PC1 PC2 PC3 PC4
## Standard deviation 1.2906 1.0074 0.9542 0.6396
## Proportion of Variance 0.4164 0.2537 0.2276 0.1023
## Cumulative Proportion 0.4164 0.6701 0.8977 1.0000
plot(tita_pca)

tita_pca
## Standard deviations (1, .., p=4):
## [1] 1.2905711 1.0074002 0.9542240 0.6395527
##
## Rotation (n x k) = (4 x 4):
## PC1 PC2 PC3 PC4
## PassengerId 0.06565727 -0.90999815 -0.40894567 0.01886594
## Pclass -0.68367669 -0.05910479 0.05521554 0.72528894
## Age 0.39775028 -0.32819164 0.80738894 0.28671950
## Fare 0.60833381 0.24637418 -0.42170818 0.62561326
(eigen_tita <- tita_pca$sdev^2)
## [1] 1.6655736 1.0148552 0.9105435 0.4090277
names(eigen_tita) <- paste("PC",1:4,sep="")
eigen_tita
## PC1 PC2 PC3 PC4
## 1.6655736 1.0148552 0.9105435 0.4090277
sumlabdas<-sum(eigen_tita)
sumlabdas
## [1] 4
propvar<-eigen_tita/sumlabdas
propvar
## PC1 PC2 PC3 PC4
## 0.4163934 0.2537138 0.2276359 0.1022569
cumvar<-cumsum(propvar)
cumvar
## PC1 PC2 PC3 PC4
## 0.4163934 0.6701072 0.8977431 1.0000000
matlambdas <- rbind(eigen_tita,propvar,cumvar)
rownames(matlambdas) <- c("Eigenvalues","Prop. variance","Cum. prop. variance")
round(matlambdas,4)
## PC1 PC2 PC3 PC4
## Eigenvalues 1.6656 1.0149 0.9105 0.4090
## Prop. variance 0.4164 0.2537 0.2276 0.1023
## Cum. prop. variance 0.4164 0.6701 0.8977 1.0000
summary(tita_pca)
## Importance of components:
## PC1 PC2 PC3 PC4
## Standard deviation 1.2906 1.0074 0.9542 0.6396
## Proportion of Variance 0.4164 0.2537 0.2276 0.1023
## Cumulative Proportion 0.4164 0.6701 0.8977 1.0000
tita_pca$rotation
## PC1 PC2 PC3 PC4
## PassengerId 0.06565727 -0.90999815 -0.40894567 0.01886594
## Pclass -0.68367669 -0.05910479 0.05521554 0.72528894
## Age 0.39775028 -0.32819164 0.80738894 0.28671950
## Fare 0.60833381 0.24637418 -0.42170818 0.62561326
tita_pca$x
## PC1 PC2 PC3 PC4
## [1,] -1.224789952 1.591832e+00 0.493032238 0.0777818918
## [2,] 1.625007860 1.666786e+00 0.745451365 -0.5472209837
## [3,] -1.103520752 1.495017e+00 0.713072412 0.1674523980
## [4,] 1.324249082 1.641688e+00 0.720920576 -0.8309019381
## [5,] -0.847915525 1.279294e+00 1.223651608 0.3519432306
## [6,] -1.547252191 1.858991e+00 -0.211283668 -0.1507895692
## [7,] 1.845652645 1.183347e+00 1.813157746 -0.4599148610
## [8,] -1.621785174 2.098829e+00 -0.776301561 -0.1584874252
## [9,] -1.035570658 1.466038e+00 0.734227701 0.2275319110
## [10,] -0.358184922 1.926870e+00 -0.233464501 -0.6718178975
## [11,] -1.616810493 2.020600e+00 -0.630521362 -0.1712712149
## [12,] 1.657931836 9.504729e-01 2.243158923 -0.6885782840
## [13,] -1.268549617 1.599763e+00 0.352955750 0.0478430692
## [14,] -0.456078004 1.266583e+00 1.246243564 0.7185439870
## [15,] -1.439443222 1.731249e+00 0.008202102 -0.0762850737
## [16,] 0.630942254 8.844586e-01 2.218419701 -0.0110473235
## [17,] -1.523537891 2.105865e+00 -0.857118035 -0.0591510449
## [18,] -0.334190889 1.630171e+00 0.352466086 -0.7179851672
## [19,] -0.838459118 1.370824e+00 0.890395104 0.3936865149
## [20,] -1.220240572 1.524528e+00 0.463047037 0.0788682829
## [21,] 0.187845082 1.380062e+00 0.983868989 -0.2943499693
## [22,] 0.004969680 1.337021e+00 1.032496751 -0.4739426413
## [23,] -1.407137992 1.680556e+00 0.051242699 -0.0532410295
## [24,] 0.922321774 1.648761e+00 0.434171789 -1.1873630545
## [25,] -1.448378021 1.899214e+00 -0.460121836 -0.0353665516
## [26,] -0.479853916 1.247945e+00 1.169046617 0.7004902552
## [27,] -1.218454700 1.499776e+00 0.451923754 0.0793814346
## [28,] 3.381400508 2.942091e+00 -1.966749325 1.4188051166
## [29,] -1.210146780 1.495862e+00 0.443340184 0.0875472097
## [30,] -1.181515454 1.469156e+00 0.498812884 0.1081364407
## [31,] 1.169524327 1.307450e+00 1.173712890 -1.0384577635
## [32,] 2.106772294 2.272660e+00 -0.781871774 0.0725502181
## [33,] -1.182487929 1.457844e+00 0.495250471 0.1065691516
## [34,] 0.879939532 5.385050e-01 2.864450003 0.1462902599
## [35,] 1.481416034 1.835161e+00 0.031063354 -0.6144676657
## [36,] 1.516550102 1.360473e+00 1.079552617 -0.6998527733
## [37,] -1.215853393 1.464437e+00 0.435998645 0.0801659919
## [38,] -1.233993165 1.488113e+00 0.370428640 0.0699881951
## [39,] -1.199675038 1.602361e+00 0.115028565 0.1310909247
## [40,] -1.392688145 1.659202e+00 -0.059513964 -0.0329285345
## [41,] -0.680854202 1.042625e+00 1.440666248 0.4736121025
## [42,] -0.091821012 1.467674e+00 0.534221654 -0.5165998675
## [43,] -1.178198836 1.423188e+00 0.478155358 0.1090894366
## [44,] -0.522299208 2.117957e+00 -1.011770794 -0.7516927434
## [45,] -1.290599806 1.509038e+00 0.246318830 0.0277828037
## [46,] -1.175595491 1.413325e+00 0.472114121 0.1111995369
## [47,] -0.522974058 9.807421e-01 1.552945664 0.6088435068
## [48,] -0.868699330 1.149049e+00 1.100602789 0.3311056173
## [49,] -0.730594851 1.236004e+00 0.926721397 0.4816101218
## [50,] -1.199252548 1.562500e+00 0.099201669 0.1294457130
## [51,] -1.248073308 1.920378e+00 -0.712426160 0.1743783624
## [52,] -1.233401272 1.437403e+00 0.350247760 0.0679500073
## [53,] 2.012892797 1.256984e+00 1.248600133 -0.2532898036
## [54,] 0.027194156 1.402878e+00 0.588237240 -0.4138054740
## [55,] 2.288445338 8.067009e-01 2.282479999 -0.1089491027
## [56,] 1.099555794 1.396107e+00 0.726515907 -1.0631425701
## [57,] -0.382217871 1.503450e+00 0.253951471 -0.7660835318
## [58,] -1.041425743 1.250678e+00 0.745822209 0.2035800951
## [59,] -0.626951416 1.951658e+00 -0.806941423 -0.8794860920
## [60,] -1.047095165 1.830369e+00 -0.557526975 0.3446984630
## [61,] -1.209730405 1.379573e+00 0.397861674 0.0819253690
## [62,] 1.744213156 1.496705e+00 0.578085053 -0.4359735420
## [63,] 1.983136567 1.347191e+00 0.948175284 -0.2511167186
## [64,] -1.469791624 1.887259e+00 -0.807283268 -0.0300967217
## [65,] 0.699166793 1.582485e+00 0.147304176 -1.3812768158
## [66,] -1.084723389 1.377342e+00 0.380876240 0.2008715451
## [67,] -0.154239911 1.282086e+00 0.695652284 -0.6028509271
## [68,] -1.281405238 1.429058e+00 0.207464766 0.0328900714
## [69,] -1.340287588 1.470897e+00 0.093405620 -0.0105212871
## [70,] -1.077636853 1.261666e+00 0.600512924 0.1814042414
## [71,] -0.068684396 1.198191e+00 0.860892829 -0.5416203734
## [72,] -0.903141974 1.671685e+00 -0.290600949 0.4471403584
## [73,] 0.372786263 1.750997e+00 -0.292026207 0.0073411470
## [74,] -1.007582771 1.275481e+00 0.546301413 0.2526919236
## [75,] -0.337147003 1.335391e+00 0.540526702 0.8899843177
## [76,] -1.116352837 1.258813e+00 0.542145810 0.1491204553
## [77,] -0.887741210 1.070460e+00 0.996117004 0.3147063012
## [78,] -1.167431507 1.300173e+00 0.421264826 0.1135453731
## [79,] 1.590960785 7.343304e-02 3.612463709 0.7216729377
## [80,] -0.916929542 1.151709e+00 0.781916407 0.3101205701
## [81,] -1.183521043 1.317402e+00 0.351449193 0.1050979201
## [82,] -0.980057844 1.153526e+00 0.746121095 0.2534872993
## [83,] -0.887501334 1.048721e+00 0.987477617 0.3138186080
## [84,] 1.075894274 1.492599e+00 0.242981501 -1.0407722239
## [85,] 0.847184955 2.038107e+00 -0.944764881 0.5276113285
## [86,] -0.790635805 1.077034e+00 0.916092101 0.4128683685
## [87,] -1.048605580 1.558183e+00 -0.210945656 0.2947089643
## [88,] -0.571049242 7.773975e-01 1.605105387 0.5429848593
## [89,] 3.509676460 2.633394e+00 -1.834885186 1.5045266323
## [90,] -1.134105778 1.235336e+00 0.457949261 0.1368826468
## [91,] -0.992958958 1.115547e+00 0.742354732 0.2385181610
## [92,] -1.250728599 1.319476e+00 0.229039398 0.0512342429
## [93,] 1.753166043 1.110211e+00 1.141962219 -0.5019576632
## [94,] 1.478194590 2.209430e+00 -1.205128811 2.8052954403
## [95,] -0.158209696 3.991814e-01 2.460021815 0.8362331162
## [96,] -0.907148317 1.028116e+00 0.906006237 0.2998220220
## [97,] 2.142533023 3.867797e-01 2.784713261 -0.3189444233
## [98,] 1.132363486 1.637832e+00 -0.199597789 -0.9420144639
## [99,] 0.143808258 1.113024e+00 0.827513169 -0.3457183283
## [100,] 0.179821579 1.123970e+00 0.801135889 -0.3088711276
## [101,] -1.022509918 1.101849e+00 0.671985521 0.2149034715
## [102,] -1.134968150 1.191315e+00 0.441600872 0.1337270135
## [103,] 1.243310124 1.733894e+00 -0.437034245 -0.8115291712
## [104,] -0.871813176 9.786493e-01 0.946946444 0.3259820408
## [105,] -0.767536320 8.785912e-01 1.180178207 0.3983666059
## [106,] -1.021234295 1.084169e+00 0.664040319 0.2152700085
## [107,] -1.221157334 1.242200e+00 0.264089946 0.0701432186
## [108,] -1.163055606 1.192766e+00 0.375865867 0.1123736543
## [109,] -0.738685529 8.410558e-01 1.231262220 0.4186143443
## [110,] -0.967365197 1.264742e+00 0.237385311 0.3132444370
## [111,] 1.676576137 9.790221e-01 1.246369092 -0.5927925128
## [112,] -1.336028111 1.420120e+00 -0.200468952 0.0117283077
## [113,] -1.184594593 1.200509e+00 0.307003526 0.0979438338
## [114,] -1.221625109 1.251198e+00 0.177796287 0.0770050016
## [115,] -1.250678850 1.339780e+00 -0.033673244 0.0729358116
## [116,] -1.215583379 1.211704e+00 0.247516326 0.0741739253
## [117,] 0.163324475 6.804797e-02 3.050119476 1.0674117158
## [118,] -0.016074871 1.152438e+00 0.527852382 -0.4704036238
## [119,] 3.361023413 2.429348e+00 -1.697469021 1.3373129535
## [120,] -1.471633358 1.752038e+00 -1.038554109 -0.0252457611
## [121,] 0.385032240 1.581270e+00 -0.368300150 0.0108599013
## [122,] -1.154120133 1.145435e+00 0.349901064 0.1189160416
## [123,] 3.660183311 2.519132e+00 -1.797460342 3.2833328913
## [124,] -0.025364299 1.022852e+00 0.756016817 -0.5070901711
## [125,] 2.178808059 8.888361e-01 1.415570639 -0.1396058438
## [126,] -1.427104116 1.401609e+00 -0.310569250 -0.0672489825
## [127,] -0.566761101 6.372013e-01 1.547057613 0.5400213141
## [128,] -1.137323332 1.095739e+00 0.406516757 0.1263892744
## [129,] -0.420307034 7.238990e-01 1.365975950 0.6989235097
## [130,] -0.547054922 5.996017e-01 1.605893022 0.5510537551
## [131,] -0.873964486 8.795168e-01 0.910308818 0.3186648998
## [132,] -1.250109200 1.174154e+00 0.172122680 0.0443086831
## [133,] -0.400239392 5.788184e-01 1.653346538 0.6841397426
## [134,] 0.047604116 1.119999e+00 0.461114001 -0.4079408835
## [135,] -0.219806304 1.146710e+00 0.338145057 -0.6484708795
## [136,] -0.251523151 1.199551e+00 0.205254285 -0.6639451111
## [137,] 0.587688265 1.413958e+00 -0.184024650 -1.4748692737
## [138,] 1.414792445 1.121366e+00 0.622386956 -0.7804538663
## [139,] -1.335210923 1.252864e+00 -0.085699106 -0.0098685991
## [140,] 1.360080599 1.542544e+00 -0.340034538 -0.7244361170
## [141,] -0.811983997 9.028884e-01 0.776488324 0.3891815710
## [142,] -1.126501018 1.049172e+00 0.379243961 0.1348720975
## [143,] -1.029698761 1.084737e+00 0.310726674 0.2342349170
## [144,] -1.278801865 1.153525e+00 0.098334115 0.0211985410
## [145,] -0.432382532 1.266863e+00 -0.065743544 -0.8083118419
## [146,] -0.102984242 1.361967e+00 -0.218768032 -0.4784124906
## [147,] -1.040144470 9.619614e-01 0.542517032 0.1967373733
## [148,] -1.230291360 1.505241e+00 -0.708269441 0.1569936249
## [149,] 0.248679359 9.042062e-01 0.837670710 -0.2646541832
## [150,] 0.263052331 6.984118e-01 1.286690787 -0.3020597655
## [151,] 0.511250794 4.833283e-01 1.803816672 -0.1249970190
## [152,] 1.156600987 1.485789e+00 -0.369390223 -0.9186316633
## [153,] -0.246590312 2.909585e-01 2.132451661 0.7690415504
## [154,] -0.592130152 6.673164e-01 1.219584372 0.5434921080
## [155,] -1.156577476 1.024343e+00 0.305002484 0.1101497926
## [156,] 1.912564524 7.721775e-01 1.326159928 -0.3932740150
## [157,] -1.348299919 1.182055e+00 -0.102044876 -0.0267325307
## [158,] -0.949773171 8.545412e-01 0.694533903 0.2615970531
## [159,] -0.547720665 5.284549e-01 1.488668562 0.5535525429
## [160,] -0.413468254 1.307104e+00 -0.217195404 0.8734213924
## [161,] -0.458559885 5.572862e-01 1.424036303 0.6448677683
## [162,] 0.242535494 7.157562e-01 1.130501944 -0.3080955574
## [163,] -1.064488740 9.285358e-01 0.460065347 0.1773428843
## [164,] -1.307260202 1.138539e+00 -0.063647001 0.0054831629
## [165,] -1.388059150 1.656779e+00 -1.236770188 0.0608607557
## [166,] -1.390782796 1.374735e+00 -0.622433131 -0.0114596499
## [167,] 1.332124557 1.120996e+00 0.331809954 -0.8362875853
## [168,] -0.287946765 5.662465e-01 1.372611513 0.8103373419
## [169,] 1.324218349 6.945635e-01 1.255258055 -0.9487919907
## [170,] -0.425623532 1.092475e+00 0.160772248 0.8156987534
## [171,] 1.865871474 3.520505e-01 2.104672105 -0.5307922333
## [172,] -1.427636913 1.511287e+00 -0.989021505 -0.0071635181
## [173,] -1.726367059 1.490650e+00 -1.013546396 -0.2885691540
## [174,] -1.200786157 1.006617e+00 0.155351978 0.0784257534
## [175,] 1.692575897 4.406223e-01 1.835491826 -0.6664349945
## [176,] -1.285654819 1.068954e+00 -0.018837807 0.0167671802
## [177,] -0.962755921 1.057438e+00 0.062841139 0.3139836520
## [178,] 1.500631491 5.599433e-01 1.503918796 -0.8124009415
## [179,] -0.067689129 8.748744e-01 0.554221787 -0.5436831479
## [180,] -0.608814779 7.045880e-01 0.887503112 0.5560830679
## [181,] -0.126327246 1.000343e+00 0.321423768 1.0780852611
## [182,] 0.070224369 7.811605e-01 0.761311644 -0.4370846331
## [183,] -1.256971207 1.367060e+00 -0.739200903 0.1229387145
## [184,] -0.573680969 1.656970e+00 -1.327322990 -0.8136703347
## [185,] -1.508948028 1.431045e+00 -0.951013531 -0.0932420698
## [186,] 1.587336659 7.739204e-01 0.972119843 -0.6727477123
## [187,] -0.740861680 6.949594e-01 0.815689876 0.4362945678
## [188,] 1.336515339 6.303969e-01 1.219902070 -0.9397379226
## [189,] -0.571281396 5.483844e-01 1.155705209 0.5583158308
## [190,] -0.774377122 6.011424e-01 0.988152136 0.3839273594
## [191,] -0.008270957 7.859416e-01 0.649551105 -0.5021785766
## [192,] -0.374334243 1.084662e+00 -0.095623664 -0.7661670069
## [193,] -1.253139363 9.855923e-01 0.011347407 0.0383258470
## [194,] -0.669725234 1.512354e+00 -1.121399886 -0.9316659161
## [195,] 1.324078104 6.345474e-01 1.141905860 -0.9451855876
## [196,] 3.134854588 8.789920e-01 0.959487165 0.7955080764
## [197,] -0.548902385 3.896827e-01 1.435824779 0.5451528308
## [198,] -0.597206268 4.358058e-01 1.314432446 0.5126204158
## [199,] -0.238430404 1.268552e-01 2.061834623 0.7687363006
## [200,] -0.231401550 9.401219e-01 0.177658523 -0.6640183411
## [201,] -0.977876367 7.559947e-01 0.499826375 0.2418984362
## [202,] -0.149147971 9.493383e-01 0.230855016 1.0593122747
## [203,] -0.844104341 5.949174e-01 0.864664651 0.3270943224
## [204,] -0.525195859 3.391460e-01 1.486238340 0.5595429925
## [205,] -1.275922390 9.673562e-01 -0.066537827 0.0212932036
## [206,] -1.697765143 1.347474e+00 -1.003243179 -0.2740602116
## [207,] -0.787944079 6.724304e-01 0.666619301 0.4014261203
## [208,] -0.921745755 8.225777e-01 0.297565029 0.3156325501
## [209,] -1.334834390 9.982651e-01 -0.184812969 -0.0227158389
## [210,] 1.254277708 6.903395e-01 0.862179446 -0.9851394253
## [211,] -1.117241007 8.018099e-01 0.275384091 0.1313497317
## [212,] 0.176976868 6.805532e-01 0.721675990 -0.3416380818
## [213,] -1.170703556 8.422045e-01 0.156155656 0.0933230566
## [214,] -0.058759771 7.511151e-01 0.498605370 -0.5411173895
## [215,] -0.854271876 5.817906e-01 0.778034126 0.3230355086
## [216,] 1.982871960 1.275547e+00 -0.341962387 -0.1589875276
## [217,] -1.020745768 7.150665e-01 0.430216651 0.2034526190
## [218,] 0.447272385 5.255478e-01 1.062957584 -0.1254633612
## [219,] 1.570996961 1.063158e+00 0.016053027 -0.5917951410
## [220,] -0.087027522 7.178309e-01 0.509727993 -0.5713224564
## [221,] -1.328197076 9.572815e-01 -0.206360279 -0.0181587610
## [222,] -0.141253793 7.925788e-01 0.314296339 -0.6014682546
## [223,] -0.341444953 1.364419e-01 1.792423219 0.6929233016
## [224,] -0.822059568 5.274201e-01 0.819726956 0.3457949276
## [225,] 1.904992442 9.686137e-01 0.236443990 -0.3014447943
## [226,] -1.142356200 8.063741e-01 0.118146362 0.1200177779
## [227,] -0.395203382 9.488346e-01 -0.130583215 -0.7942461597
## [228,] -1.223233367 8.356658e-01 0.017922244 0.0537977846
## [229,] -0.393072975 9.770815e-01 -0.211617064 -0.7837670752
## [230,] -0.892877644 8.235299e-01 0.093019798 0.3584938259
## [231,] 1.997819146 7.763964e-01 0.624017581 -0.2591135199
## [232,] -0.962350131 6.148016e-01 0.522018260 0.2433384177
## [233,] 0.769219132 1.208047e-02 2.123050392 0.0554652325
## [234,] -1.356673214 1.279727e+00 -1.049037576 0.0454276255
## [235,] -0.252270690 8.042942e-01 0.142698973 -0.6920974939
## [236,] -1.104903194 7.158241e-01 0.231526705 0.1393113984
## [237,] 0.496557030 4.070359e-01 1.155426365 -0.0957036027
## [238,] -0.514628209 1.241725e+00 -0.907388842 -0.8238136934
## [239,] -0.392141888 9.064028e-01 -0.149651701 -0.7933664712
## [240,] 0.023766919 5.859283e-01 0.634877515 -0.4871610978
## [241,] -1.021333657 7.314731e-01 0.166533848 0.2243093735
## [242,] -1.008613225 7.329855e-01 0.156303628 0.2372020601
## [243,] -0.109337998 6.597538e-01 0.415981160 -0.5899488280
## [244,] -1.164284621 7.319857e-01 0.107928244 0.0940633399
## [245,] -0.937410843 5.429284e-01 0.563104147 0.2578619746
## [246,] 2.079420092 7.548551e-01 0.546267553 -0.1780306911
## [247,] -1.071236621 6.547640e-01 0.269387044 0.1631882630
## [248,] -0.201276475 7.776358e-01 0.088990460 -0.6421126401
## [249,] 1.436605657 7.262372e-01 0.450513269 -0.7790071440
## [250,] 0.781657041 1.285630e-01 1.706757862 0.1083738069
## [251,] -0.597442040 2.428271e-01 1.239750162 0.5023575644
## [252,] -0.925214256 5.570555e-01 0.468031320 0.2777478448
## [253,] 1.832130199 5.299578e-03 2.088995776 -0.5896614397
## [254,] -0.829330055 5.539471e-01 0.475470907 0.3673111756
## [255,] -0.470094670 3.145080e-01 1.069089246 0.6412322168
## [256,] -0.867179696 5.660022e-01 0.422151962 0.3366745957
## [257,] 1.361751828 1.152085e+00 -0.583151177 -0.7361715948
## [258,] 1.646266940 1.021035e+00 -0.244665951 -0.5044280573
## [259,] 6.863041933 2.956867e+00 -3.478779219 4.8170066550
## [260,] 0.671494929 1.862053e-01 1.462071848 0.0278571152
## [261,] -0.588931095 2.098810e-01 1.219728384 0.5092196204
## [262,] -1.405886406 1.227221e+00 -1.207928514 0.0068553494
## [263,] 2.185818143 4.587764e-01 1.062364509 -0.1411548669
## [264,] 1.160779840 4.559505e-01 0.850735979 -1.0915025068
## [265,] -0.531553919 1.492360e-01 1.327770027 0.5501377327
## [266,] 0.093778241 4.156727e-01 0.779825545 -0.4460756687
## [267,] -0.939361361 9.473513e-01 -0.540868784 0.3730247290
## [268,] -1.065879006 5.805084e-01 0.236017194 0.1647277180
## [269,] 3.236219569 6.543753e-01 0.786129703 0.8859506270
## [270,] 2.375859541 1.099533e+00 -0.383715929 0.2002880831
## [271,] 0.762630196 8.931538e-01 -0.264332264 -1.3462916196
## [272,] -0.895305056 6.350333e-01 0.112123463 0.3393904919
## [273,] 0.343730400 3.181144e-01 0.980332054 -0.2336786301
## [274,] 1.170575440 5.275127e-01 0.599625719 -1.0573204308
## [275,] -1.148926137 6.253873e-01 0.053503773 0.1039970965
## [276,] 2.478932446 1.488867e-01 1.684872996 0.0624981856
## [277,] -0.500314085 8.355375e-02 1.365900443 0.5713298626
## [278,] -0.160583925 7.542624e-01 -0.135049157 -0.5886035680
## [279,] -1.315803573 1.063185e+00 -0.987452129 0.0616176957
## [280,] -0.632339616 3.657926e-01 0.685859968 0.5216499268
## [281,] 0.064273198 -3.956003e-01 2.503522326 0.9778719195
## [282,] -0.976828229 4.616355e-01 0.384712925 0.2276621762
## [283,] -1.295096228 7.450504e-01 -0.316861771 0.0041603451
## [284,] -1.227589215 6.647632e-01 -0.134873122 0.0473969281
## [285,] 0.734783283 7.962629e-01 -0.188066196 -1.3862426972
## [286,] -0.825281584 3.351409e-01 0.657672496 0.3394257252
## [287,] -0.899578981 4.053994e-01 0.477566699 0.2888277538
## [288,] -1.143871670 5.801234e-01 0.031641538 0.1067373036
## [289,] 0.298514638 2.069105e-01 1.065814161 -0.2918700396
## [290,] -1.145099269 5.723476e-01 0.029668166 0.1050967072
## [291,] 1.450789289 9.604203e-01 -0.462689885 -0.6770321073
## [292,] 1.399560754 1.178672e+00 -0.965718021 -0.6692407905
## [293,] 0.128975175 3.316662e-01 0.717297429 -0.4149837038
## [294,] -1.074610754 5.170128e-01 0.128620787 0.1594985803
## [295,] -1.085729120 5.088705e-01 0.134916059 0.1478753380
## [296,] 0.786278894 7.424235e-01 -0.162565273 -1.3440303694
## [297,] -1.121342682 5.218312e-01 0.080047023 0.1195383523
## [298,] 1.642835331 1.844628e+00 -2.447288494 -0.2728635324
## [299,] 0.820170662 7.452317e-01 -0.190296219 -1.3097431124
## [300,] 4.139820129 1.184815e+00 -0.497901661 1.8786869232
## [301,] -1.705859685 9.984620e-01 -1.131789325 -0.3003457389
## [302,] -0.393720305 1.397295e-01 1.026505154 0.7022236721
## [303,] -1.056466232 6.649210e-01 -0.280330205 0.2197883725
## [304,] 0.040988843 3.599876e-01 0.532559219 -0.4815500780
## [305,] -0.825648955 2.658453e-01 0.631095678 0.3354557060
## [306,] 4.180926860 -2.762055e-01 2.687900384 1.5558426496
## [307,] 1.723975611 1.151482e+00 -0.981593180 -0.3644459018
## [308,] 1.559699295 1.254625e+00 -1.252789226 -0.4902460222
## [309,] 0.096590447 4.682977e-01 0.256756313 -0.3993155793
## [310,] 1.307067249 6.944155e-01 -0.082960031 -0.8630938888
## [311,] 1.450887448 9.569993e-01 -0.644466890 -0.6633798541
## [312,] 3.418227905 1.958106e+00 -2.470071507 1.4116507437
## [313,] 0.008736386 5.568104e-01 0.005079049 -0.4557561863
## [314,] -0.968168397 3.486849e-01 0.333519899 0.2305179437
## [315,] 0.491258252 1.556867e-01 0.972216619 -0.1072335772
## [316,] -1.024510674 3.879131e-01 0.216287744 0.1895297444
## [317,] -0.046599795 5.891675e-01 -0.115674918 -0.4960878395
## [318,] 0.655972719 -1.698117e-01 1.697856067 -0.0337368647
## [319,] 2.624091846 1.160392e+00 -0.931922696 0.4809723575
## [320,] 2.515999208 8.010110e-01 -0.167809271 0.2916237079
## [321,] -1.143150109 4.603186e-01 -0.015460716 0.1012402538
## [322,] -0.994305740 3.436476e-01 0.263608673 0.2107919614
## [323,] -0.038698809 3.625555e-01 0.330770743 -0.5410945619
## [324,] -0.065412404 6.253987e-01 -0.265984245 -0.4994256772
## [325,] 0.220372415 2.354066e-01 0.721789863 1.3120783790
## [326,] 2.418324853 8.782680e-01 -0.415503294 0.2247057378
## [327,] -0.054732523 -4.725547e-01 2.214128259 0.8814541223
## [328,] 0.139394458 2.085103e-01 0.660648168 -0.4108856999
## [329,] -0.729274037 2.868591e-01 0.376929120 0.4473631633
## [330,] 0.930188358 9.542717e-01 -0.924201356 -1.1331310576
## [331,] -0.639926747 2.464406e-01 0.465632860 0.5215376139
## [332,] 1.410585266 1.190038e-01 1.003567336 -0.8951224084
## [333,] 2.688980753 8.930827e-01 -0.459546933 0.4843934721
## [334,] -1.180769986 6.057477e-01 -0.468136181 0.1120917194
## [335,] 2.030662819 1.139127e+00 -1.157002882 -0.0630074544
## [336,] -1.131625694 4.103964e-01 -0.044632405 0.1102560579
## [337,] 1.203799021 8.316323e-01 -0.663362711 -0.9050697978
## [338,] 2.548769788 7.141129e-01 -0.139213098 0.3132556821
## [339,] -0.480920546 -1.342288e-01 1.264901110 0.5795523096
## [340,] 1.481972886 1.361325e-01 0.904416335 -0.8188864188
## [341,] -0.660400270 1.015815e+00 -1.412187739 -0.9412021724
## [342,] 3.602401300 1.715540e+00 -2.179713525 1.5433858411
## [343,] -0.082205388 3.414746e-01 0.179221343 -0.5722856201
## [344,] -0.166485281 4.076902e-01 0.006035596 -0.6331496368
## [345,] 0.143731575 1.483986e-01 0.633634480 -0.4096394744
## [346,] -0.194153372 4.238687e-01 -0.054341387 -0.6533154634
## [347,] 0.256955181 4.832465e-02 0.859252008 -0.3282430942
## [348,] -1.002596726 3.843185e-01 -0.074291213 0.2320149799
## [349,] -1.568292267 8.448272e-01 -1.218205749 -0.1766121330
## [350,] -0.555348562 -1.004164e-01 1.070764025 0.5269293699
## [351,] -1.083777221 3.405226e-01 -0.022251953 0.1479613964
## [352,] 0.859151217 6.027982e-01 -0.368896626 -1.2710094225
## [353,] -1.332482423 5.098203e-01 -0.466530462 -0.0388559653
## [354,] -0.924446322 3.248081e-01 0.016525679 0.2939182464
## [355,] -1.078417182 2.934735e-01 0.045116281 0.1440511383
## [356,] -0.938332068 2.079177e-01 0.253525101 0.2532610803
## [357,] 1.070636482 7.049156e-01 -0.599295661 -1.0457960379
## [358,] 0.203404872 5.592987e-02 0.727374759 -0.3680615957
## [359,] -1.069599013 2.824877e-01 0.033354630 0.1523635282
## [360,] -1.069343889 2.789517e-01 0.031765590 0.1524368356
## [361,] -0.379599431 5.475691e-05 0.779932189 0.7229234596
## [362,] 0.126283407 3.221028e-01 0.084594238 -0.3701332953
## [363,] -0.398463342 -1.881771e-01 1.173847857 0.6598141427
## [364,] -0.768245225 5.049371e-03 0.661448822 0.3660026160
## [365,] -0.977232910 2.980600e-01 -0.039148351 0.2462188680
## [366,] -0.906242792 1.151954e-01 0.370623680 0.2670386168
## [367,] 2.385332450 -1.162099e-01 1.391051602 -0.0249664119
## [368,] -1.131407181 2.940271e-01 -0.089973754 0.1044307350
## [369,] -1.124944433 2.930052e-01 -0.095866032 0.1108879903
## [370,] 1.300757186 6.814777e-01 -0.623712658 -0.8289292674
## [371,] 1.164008041 5.877926e-01 -0.453595177 -0.9784180675
## [372,] -1.251841727 3.693448e-01 -0.319065626 0.0144842079
## [373,] -1.204883133 3.500610e-01 -0.276297725 0.0539212850
## [374,] 2.036074080 1.034048e+00 -1.292561868 -0.0561496870
## [375,] -1.499976139 7.778732e-01 -1.302280515 -0.1112711750
## [376,] 1.399343456 7.688946e-01 -0.853992864 -0.7113444970
## [377,] -1.128863137 2.623037e-01 -0.104446983 0.1053454671
## [378,] 3.082271748 1.269886e+00 -1.639790830 0.9756770614
## [379,] -1.223298621 2.861042e-01 -0.195272227 0.0251820392
## [380,] -1.206375096 3.239816e-01 -0.285148753 0.0510634965
## [381,] 3.696720580 9.878782e-01 -0.918984931 1.4770174844
## [382,] -1.618116677 7.738767e-01 -1.383733897 -0.2167583079
## [383,] -0.837503403 1.184118e-02 0.452430443 0.3171838511
## [384,] 1.408085057 2.927055e-01 0.126174214 -0.8165288942
## [385,] -1.062767914 1.906323e-01 -0.008097584 0.1544730023
## [386,] 0.368105217 7.139864e-01 -0.960992584 -0.0306509668
## [387,] -1.245452843 9.066084e-01 -1.649132234 0.1655455629
## [388,] 0.154701929 -3.648526e-03 0.565305740 -0.4064872570
## [389,] -1.063733188 1.756842e-01 -0.013077172 0.1527240550
## [390,] -0.392095667 4.262118e-01 -0.516388737 -0.8045349927
## [391,] 2.248568405 5.729621e-01 -0.389616930 0.0378382819
## [392,] -1.146709000 2.351492e-01 -0.189991299 0.0928230335
## [393,] -0.947665515 6.948340e-02 0.207744429 0.2366671594
## [394,] 1.802857409 8.321469e-01 -1.082402810 -0.3084383447
## [395,] -0.955275896 1.977733e-01 -0.096734862 0.2631276468
## [396,] -1.117510163 1.977548e-01 -0.139148559 0.1134287043
## [397,] -0.862953892 -1.475382e-02 0.373569976 0.2970298491
## [398,] 0.593988754 -2.087580e-01 1.013988653 -0.0432762316
## [399,] -0.238608610 2.476439e-01 -0.175102568 -0.7003875247
## [400,] -0.071835081 1.382342e-01 0.091537997 -0.5723973869
## [401,] -0.635662787 -2.145600e-01 0.824220030 0.4606904735
## [402,] -1.000236148 8.476400e-02 0.078012417 0.1982342887
## [403,] -1.119715786 2.060491e-01 -0.224237510 0.1185032761
## [404,] -0.850397907 6.884426e-02 0.124782717 0.3346179089
## [405,] -1.161240178 2.166158e-01 -0.275009050 0.0840875658
## [406,] 0.198292684 1.782353e-02 0.356203234 -0.3477288912
## [407,] -0.298077863 -5.156267e-01 1.502518594 0.7027344704
## [408,] -0.701544232 7.206557e-01 -1.401549636 -1.0048483788
## [409,] -1.142619807 1.749372e-01 -0.216833122 0.0938142933
## [410,] -0.875133571 2.103040e-01 -0.250206391 0.3513767132
## [411,] -1.056134677 9.869682e-02 -0.049412637 0.1563789942
## [412,] -1.068245929 9.015247e-02 -0.042429077 0.1437346635
## [413,] 1.812064154 4.201019e-01 -0.348290132 -0.3892252135
## [414,] -0.069530313 2.268681e-01 -0.236760858 -0.5380088814
## [415,] -0.491199347 -3.803163e-01 1.087967974 0.5632789836
## [416,] -1.053021083 8.176129e-02 -0.058631954 0.1586357093
## [417,] 0.338172143 3.444212e-02 0.243702204 -0.2059559188
## [418,] -0.344854443 3.087812e-01 -0.511945715 -0.7699119802
## [419,] -0.006459247 2.623912e-02 0.172852071 -0.5260893764
## [420,] -1.254595009 4.708446e-01 -0.998802967 0.0719079874
## [421,] -1.053583432 6.333701e-02 -0.065303041 0.1571120680
## [422,] -1.139800227 1.287681e-01 -0.237146092 0.0942561321
## [423,] -0.912429410 -6.008789e-02 0.217685254 0.2585659240
## [424,] -0.862578546 -8.874988e-03 0.104982890 0.3183100081
## [425,] -1.074825307 2.481530e-01 -0.516622387 0.1865083202
## [426,] -1.060005357 4.253962e-02 -0.067912162 0.1495624115
## [427,] 0.094177259 1.072077e-01 -0.061673762 -0.4067742622
## [428,] -0.159172670 3.129262e-01 -0.578052922 -0.5895129271
## [429,] -1.109636963 8.084636e-02 -0.191208461 0.1152864331
## [430,] -0.824022626 -1.537465e-01 0.376712697 0.3221615435
## [431,] 0.919478828 1.664123e-01 -0.138616105 -1.2672357322
## [432,] -0.389421143 -4.009645e-01 0.993406333 0.6647340685
## [433,] 0.490204755 -2.395153e-01 0.729576627 -0.1219602388
## [434,] -1.256702661 1.764019e-01 -0.479983958 0.0064295354
## [435,] 1.890257152 -2.175605e-01 0.870891972 -0.4602975359
## [436,] 1.640125544 9.253541e-01 -1.719499601 -0.4057365960
## [437,] -0.818420305 2.043369e-01 -0.481115313 0.4219287545
## [438,] -0.102145372 1.263157e-01 -0.248043904 -0.5760878887
## [439,] 4.754281948 4.425300e-01 -0.045894362 2.3629943117
## [440,] -0.002721791 -8.333532e-02 0.217337990 -0.5348823912
## [441,] 0.579760619 -3.363478e-01 0.886395323 -0.0573719645
## [442,] -1.141818074 8.982746e-02 -0.340723598 0.0970659842
## [443,] -1.021232217 -3.828820e-02 -0.042064890 0.1775565097
## [444,] -0.056437813 -1.565938e-02 0.018728255 -0.5648815746
## [445,] -1.044877510 -2.048043e-02 -0.105230550 0.1615277461
## [446,] 0.906267253 9.383765e-01 -1.992223829 -1.0756675388
## [447,] -0.400871434 3.538680e-01 -0.897730253 -0.7896715040
## [448,] 1.092885980 -3.320244e-02 0.177563620 -1.1441148586
## [449,] -1.446394219 4.609398e-01 -1.290460775 -0.0874905901
## [450,] 1.647687962 -4.397155e-01 1.171327931 -0.7299253396
## [451,] 0.346585909 -1.552121e-01 0.343320678 -0.2210639163
## [452,] -0.901796698 1.199192e-02 -0.214302083 0.3073492600
## [453,] 0.995751524 4.791248e-02 -0.069092487 -1.2102885298
## [454,] 2.262700289 -1.012057e-01 0.509143413 -0.0722012336
## [455,] -0.479504442 -5.211521e-01 1.023373512 0.5677435244
## [456,] -0.903762378 -1.766748e-01 0.165075053 0.2612400332
## [457,] 1.968710617 -7.857919e-01 1.936428225 -0.5137694098
## [458,] 1.707108746 -2.021258e-01 0.581710369 -0.6096652044
## [459,] 0.537514021 -5.922786e-01 1.273925363 -0.1475531650
## [460,] -0.171842907 -7.960357e-01 1.647095058 0.7878695270
## [461,] 1.490699348 -4.046773e-01 0.957690725 -0.8587876835
## [462,] -0.759501963 -3.133989e-01 0.440261206 0.3651322624
## [463,] 1.605468077 -3.308120e-01 0.798573921 -0.7324708349
## [464,] 0.512231463 -5.513891e-01 1.130925490 -0.1571665997
## [465,] -0.448774858 -5.797624e-01 1.064682009 0.5887890396
## [466,] -0.657687507 -4.253722e-01 0.670963399 0.4344172930
## [467,] 0.225774678 -1.930439e-01 0.251009019 -0.3309991765
## [468,] 1.717911934 -6.154332e-01 1.404158660 -0.6957750009
## [469,] -0.761589896 -3.397196e-01 0.431823315 0.3616615757
## [470,] 0.531447143 -1.240851e+00 2.680092532 1.3359197605
## [471,] -0.794919701 -3.258341e-01 0.375371137 0.3356732159
## [472,] -0.636936729 -4.388040e-01 0.648105478 0.4546231050
## [473,] 0.267663631 -1.632521e-01 0.136765081 -0.2803884780
## [474,] -0.180239185 -1.664464e-03 -0.321479087 -0.6545399295
## [475,] -1.073019490 -7.173168e-02 -0.281552807 0.1442470735
## [476,] 1.403378172 -9.354170e-03 -0.077216412 -0.8300970565
## [477,] 0.216406524 -2.332311e-01 0.243381360 -0.3425240672
## [478,] -0.908281128 -2.585696e-01 0.137139497 0.2524335258
## [479,] -1.099612663 -9.705909e-02 -0.268766664 0.1161422767
## [480,] -1.606108124 3.874255e-01 -1.453719783 -0.2316032040
## [481,] -0.996044425 3.882222e-01 -1.340910821 0.3349359877
## [482,] 0.201423207 -2.228331e-01 0.169974509 -0.3502120072
## [483,] -0.303290920 -7.596626e-01 1.322073792 0.6916707793
## [484,] 0.081608691 -1.058033e+00 2.051366507 0.9746524448
## [485,] 1.617869820 3.567250e-01 -0.929209420 -0.5332178178
## [486,] -0.573960716 -2.909356e-01 0.201015555 0.5600724878
## [487,] 1.887300046 1.119383e-01 -0.351481323 -0.3431755846
## [488,] 1.816917209 -7.174477e-01 1.460748003 -0.6150713825
## [489,] -0.865326958 -3.158683e-01 0.168561504 0.2858617963
## [490,] -1.363249675 2.067509e-01 -1.099067044 -0.0444011440
## [491,] -0.638241788 -3.351659e-01 0.238515458 0.4930202202
## [492,] -1.127702157 -1.210836e-01 -0.344385540 0.0934633746
## [493,] 1.743193333 -6.615142e-01 1.274595897 -0.6658357981
## [494,] 2.420820530 -9.453186e-01 2.031162405 -0.1078106208
## [495,] -1.117401264 -1.278296e-01 -0.355762859 0.1034896683
## [496,] -0.702622984 -3.794367e-01 0.276084769 0.4258649857
## [497,] 2.285385852 -4.218217e-01 0.816356699 -0.1003324992
## [498,] -0.694464056 -3.834109e-01 0.267604483 0.4338775362
## [499,] 2.342217161 5.991342e-01 -1.451110879 0.2090574026
## [500,] -1.034620535 -2.164882e-01 -0.190010965 0.1616775547
## [501,] -1.221283242 -5.308676e-02 -0.599153643 0.0301877503
## [502,] -1.119191213 -1.540297e-01 -0.364407318 0.1003254306
## [503,] -0.754057541 -4.604054e-01 0.378587510 0.3629797136
## [504,] -0.645925640 -5.242395e-01 0.532414240 0.4479951169
## [505,] 1.314785945 4.731546e-01 -1.437943581 -0.7706953133
## [506,] 1.638392287 5.312500e-01 -1.510220339 -0.4554187193
## [507,] 0.255478916 -2.919233e-01 0.097197511 -0.2993474648
## [508,] 1.108193450 -2.453613e-01 0.082221191 -1.1397164157
## [509,] -0.744047845 -2.702112e-01 -0.097220366 0.4241370967
## [510,] -0.395237877 -6.325769e-02 -0.493899320 0.7999983803
## [511,] -0.891468378 -3.718576e-01 0.078882535 0.2634847280
## [512,] -1.084885808 -2.111918e-01 -0.325577645 0.1250483351
## [513,] 1.162696909 -3.108094e-01 0.190842764 -1.1019427117
## [514,] 2.064843242 -5.730093e-01 0.945233770 -0.3303536117
## [515,] -1.034369487 -2.709761e-01 -0.211367748 0.1590997761
## [516,] 1.565600303 -5.398416e-01 0.751365270 -0.7834914180
## [517,] 0.101457814 -4.253573e-01 0.266578580 -0.4683003987
## [518,] -0.863274397 -1.779381e-01 -0.410943205 0.3431538485
## [519,] 0.343075428 -4.041066e-01 0.249725732 -0.2375304522
## [520,] -0.802899391 -4.727291e-01 0.234973169 0.3268690297
## [521,] 1.796800480 1.248632e-01 -0.720422823 -0.3993424649
## [522,] -1.084172535 -2.472960e-01 -0.340193934 0.1238912308
## [523,] -1.091912943 -2.540702e-01 -0.336240324 0.1157418956
## [524,] 1.768676012 -3.827227e-01 0.369094053 -0.5501610675
## [525,] -0.781390901 -5.168774e-01 0.289734816 0.3393768489
## [526,] -0.577679778 -6.806529e-01 0.684234853 0.4880211937
## [527,] 0.554862488 -8.327252e-01 1.165870611 -0.1425682631
## [528,] 3.412132347 6.496067e-01 -1.619887912 1.2345498850
## [529,] -0.603006849 -6.671655e-01 0.620822848 0.4700738183
## [530,] -0.193267900 -2.107422e-01 -0.391529618 -0.6785262933
## [531,] -0.611926613 3.439789e-01 -1.714105430 -0.9272737700
## [532,] -1.061388422 -3.091242e-01 -0.293377490 0.1367655869
## [533,] -1.230203333 -1.731572e-01 -0.638159944 0.0149642461
## [534,] -0.288803268 -7.314235e-01 0.779613458 0.7489254404
## [535,] -0.846290599 -4.755667e-01 0.090404710 0.2967419390
## [536,] -0.466779444 2.112533e-01 -1.438121808 -0.8222805352
## [537,] 1.425553793 -6.036603e-01 0.665326942 -0.9141536466
## [538,] 1.955195830 1.271449e-01 -0.854232510 -0.2396620488
## [539,] -0.944760644 -3.220280e-01 -0.307378649 0.2467163879
## [540,] 1.051767572 3.128081e-02 -0.844644963 -1.0997995916
## [541,] 1.702786526 -1.939745e-01 -0.223098423 -0.5518058693
## [542,] -1.166722440 9.710024e-02 -1.308736876 0.1478770433
## [543,] -1.110110637 4.706325e-02 -1.195928112 0.1885752334
## [544,] 0.236740183 -3.995041e-01 -0.018795889 -0.3169475331
## [545,] 2.520548486 -3.626171e-01 0.278622252 0.1670999302
## [546,] 1.956682690 -1.079899e+00 1.742349231 -0.5342993747
## [547,] -0.128812854 -1.078554e-01 -0.767148739 -0.5807893487
## [548,] 0.459407385 -7.744964e-01 0.818722764 -0.2013736094
## [549,] -0.616789966 -5.375576e-01 0.141738019 0.5041156698
## [550,] -0.309875672 1.891861e-01 -1.489928311 -0.6722331637
## [551,] 1.645334295 4.049554e-01 -1.655313568 -0.4481211076
## [552,] 0.097889483 -3.115394e-01 -0.317502724 -0.4179232809
## [553,] -0.428955704 -8.919945e-01 0.926670861 0.5925335306
## [554,] -1.084004083 -3.636856e-01 -0.385500579 0.1180144244
## [555,] -1.077193289 -3.645665e-01 -0.391634130 0.1248296123
## [556,] 1.909432926 -1.066102e+00 1.607516511 -0.5674493032
## [557,] 1.670739459 -6.811346e-01 0.697313997 -0.6917837388
## [558,] 3.234667512 7.805188e-01 -2.229825336 1.1243689463
## [559,] 1.895016587 -2.856172e-01 -0.151577202 -0.3835176198
## [560,] -0.566696701 -6.612904e-01 0.321676363 0.5275532362
## [561,] -1.019603849 -4.324041e-01 -0.286564000 0.1655878902
## [562,] -0.566757448 -8.072443e-01 0.625824687 0.4924474706
## [563,] -0.020118297 -4.340274e-01 -0.174498936 -0.5500290140
## [564,] -1.015262655 -4.415638e-01 -0.293809945 0.1694852017
## [565,] -1.015007531 -4.450998e-01 -0.295398986 0.1695585090
## [566,] -0.822850081 -3.709157e-01 -0.430018245 0.3669850442
## [567,] -1.157226950 -3.366636e-01 -0.583297463 0.0662527389
## [568,] -0.718100288 -5.090842e-01 -0.121793870 0.4310006251
## [569,] -0.460203691 -9.282161e-01 0.849004959 0.5660392287
## [570,] -0.790639013 -6.497289e-01 0.155864875 0.3300244674
## [571,] 0.904228037 -1.267314e+00 1.782339656 0.1044065581
## [572,] 1.957050948 -7.930820e-01 0.861318083 -0.4435071098
## [573,] 1.179196320 -5.224855e-01 0.094674061 -1.0963184724
## [574,] -0.424542106 -9.666324e-01 0.893955421 0.5931021548
## [575,] -1.237883000 -2.944556e-01 -0.768880609 0.0077920519
## [576,] -1.076212734 -3.366067e-01 -0.652167657 0.1478665542
## [577,] 0.146563783 -6.254478e-01 0.150579284 -0.4332570447
## [578,] 1.616778225 -4.674501e-01 0.014471259 -0.6732514354
## [579,] -0.653269310 -6.961736e-01 0.201393311 0.4522619397
## [580,] -0.787243874 -6.847470e-01 0.139389468 0.3316254051
## [581,] 0.096609012 -3.482725e-01 -0.511033688 -0.4073903917
## [582,] 2.273166618 -2.161711e-01 -0.446197974 0.0010251312
## [583,] 0.866613503 -1.048918e+00 1.177607382 0.1327851648
## [584,] 1.345745434 -4.950657e-01 -0.036314865 -0.9271183045
## [585,] -0.692046707 -7.683769e-01 0.296534059 0.4025824131
## [586,] 1.789191592 -2.880867e-01 -0.423276904 -0.4627880860
## [587,] 0.539272236 -9.534095e-01 0.861749116 -0.1439463043
## [588,] 2.488796593 -8.785936e-01 1.007235807 0.0396534789
## [589,] -1.065241221 -4.834623e-01 -0.447933762 0.1306930035
## [590,] -0.755024365 -7.427539e-01 0.179665122 0.3542031659
## [591,] -0.709438006 -7.972561e-01 0.300116927 0.3835627389
## [592,] 2.253266002 -7.112388e-01 0.551000049 -0.1339931807
## [593,] -0.369297761 -1.082731e+00 0.982292829 0.6289908956
## [594,] -0.701223008 -8.048470e-01 0.290185589 0.3914438888
## [595,] 0.390643230 -6.960916e-01 0.186157558 -0.2116466498
## [596,] -0.477056275 -7.560011e-01 0.208697367 0.6129335620
## [597,] 0.418232594 -6.228712e-01 0.010742447 -0.1663191666
## [598,] -0.398081103 -1.181910e+00 1.148650344 0.5811120729
## [599,] -0.706205070 -8.250612e-01 0.286578328 0.3853749944
## [600,] 1.916441802 -7.727784e-01 0.542997372 -0.4558983623
## [601,] 0.037774965 -4.102236e-01 -0.575225161 -0.4630105788
## [602,] -0.753800842 -7.859300e-01 0.161870752 0.3531926763
## [603,] 1.293174415 -4.815156e-01 -0.256901089 -0.9587759192
## [604,] -0.441490890 -1.048013e+00 0.786606480 0.5786663242
## [605,] 1.161118867 -6.116019e-01 -0.014716833 -1.1122931584
## [606,] -0.577011862 -8.328760e-01 0.263866582 0.5082481415
## [607,] -0.837060237 -7.338584e-01 -0.017671157 0.2926218891
## [608,] 0.983539153 -4.171378e-01 -0.509713021 -1.2261538076
## [609,] 0.157234586 -3.216317e-01 -0.822799523 -0.3243376871
## [610,] 2.816006921 -1.328849e-01 -0.785313341 0.5453244994
## [611,] -0.303768671 -8.443976e-01 0.297586398 0.7623084936
## [612,] -0.761331025 -8.253728e-01 0.152968978 0.3435579638
## [613,] -0.660356978 -7.881177e-01 0.081559730 0.4472110708
## [614,] -0.752477196 -8.290656e-01 0.144006975 0.3522851537
## [615,] -0.692289574 -8.776544e-01 0.254336915 0.3966607331
## [616,] 0.494538998 -2.798245e-01 -0.913045135 0.0038916812
## [617,] -0.644269480 -8.308222e-01 0.141491491 0.4543329808
## [618,] -0.849178091 -6.401477e-01 -0.331735436 0.3127452969
## [619,] -0.378166790 4.906694e-02 -1.846958892 -0.7208442998
## [620,] -0.097691075 -6.035593e-01 -0.354683808 -0.6232492694
## [621,] -0.839851325 -6.819510e-01 -0.265704827 0.3131035025
## [622,] 1.672658796 -7.089361e-01 0.143795682 -0.6501012840
## [623,] -1.021243225 -5.200542e-01 -0.679913510 0.1868451569
## [624,] -1.086824021 -5.849163e-01 -0.559131235 0.1105462110
## [625,] -0.988283916 -5.486470e-01 -0.628853231 0.2116962417
## [626,] 1.967897771 -1.262513e+00 1.391402118 -0.5118919666
## [627,] 0.799674202 -1.340146e+00 1.392072797 0.0296267988
## [628,] 1.385246025 -1.192572e-01 -1.276823147 -0.7648201536
## [629,] -0.944160855 -7.186479e-01 -0.281425657 0.2129848861
## [630,] -0.692237580 -9.322229e-01 0.233118119 0.3938782465
## [631,] 2.476899298 -1.733156e+00 2.489412240 -0.1540373276
## [632,] -0.248968366 -1.314581e+00 1.150733705 0.7106995394
## [633,] 1.130808962 -6.217898e-01 -0.263444522 -1.1227589162
## [634,] 1.114284212 -7.361097e-01 -0.023203510 -1.1659409826
## [635,] -1.183223832 -2.480382e-01 -1.428630872 0.1133239997
## [636,] -0.007453907 -6.945676e-01 -0.286367517 -0.5508065574
## [637,] -0.772701777 -8.862979e-01 0.048814161 0.3358039259
## [638,] 0.235523398 -7.074289e-01 -0.227430283 -0.3273045895
## [639,] -0.139996562 -9.492961e-01 0.297980714 0.9081061090
## [640,] -0.589960298 -9.271938e-01 0.148095793 0.4971700315
## [641,] -1.110665244 -6.217775e-01 -0.643343826 0.0914799951
## [642,] 1.370151053 -2.803089e-01 -1.055931669 -0.8089896598
## [643,] -1.378431211 -1.135725e-01 -1.841735511 -0.0282766308
## [644,] -0.107446139 -7.463336e-01 -0.192040624 0.9926335416
## [645,] 0.576093932 -1.859648e+00 2.402010448 1.3487485522
## [646,] 2.136003292 -8.166017e-01 0.249100226 -0.2301309679
## [647,] -1.136816989 -6.195420e-01 -0.710420701 0.0721173294
## [648,] 1.870512967 -1.208705e+00 1.044179792 -0.5728708904
## [649,] -0.126008255 -1.465302e+00 1.348418956 0.7992730292
## [650,] -1.027459986 -7.248213e-01 -0.483534956 0.1493482129
## [651,] -0.431338009 -1.214949e+00 0.713195693 0.5802215930
## [652,] -0.165961316 -4.703649e-01 -0.966408653 -0.6301784084
## [653,] -1.072522886 -6.846642e-01 -0.609998366 0.1197707123
## [654,] -0.769506539 -9.468720e-01 0.022592044 0.3358758383
## [655,] -1.176611579 -6.301105e-01 -0.770864472 0.0383461714
## [656,] 0.606058870 -3.802313e-01 -1.046840100 0.1110166743
## [657,] -0.993374047 -7.711544e-01 -0.440316595 0.1744126100
## [658,] -0.677054714 -9.239864e-01 -0.047145994 0.4301974616
## [659,] -0.142477739 -6.596426e-01 -0.608909960 -0.6506826945
## [660,] 2.856962403 -9.221916e-01 0.496874001 0.4219968665
## [661,] 2.874648569 -6.413666e-01 -0.130659718 0.5093266687
## [662,] -0.549240530 -1.164081e+00 0.472463289 0.4915555662
## [663,] 1.502583738 -1.100341e+00 0.587458540 -0.8760903247
## [664,] -0.658215864 -1.076843e+00 0.238252047 0.4137718723
## [665,] -1.103698362 -7.062992e-01 -0.682065800 0.0941072361
## [666,] 0.834036829 -6.015952e-01 -0.605139287 0.2742492791
## [667,] -0.084080065 -7.344315e-01 -0.507224479 -0.6094713527
## [668,] -0.992007541 -8.106333e-01 -0.456797900 0.1737382291
## [669,] -0.453086136 -1.254601e+00 0.626119947 0.5631188626
## [670,] 1.171088935 -4.628293e-01 -0.957479288 -1.0189998382
## [671,] 0.649519898 -9.718223e-01 0.129571483 0.0142155732
## [672,] 1.368847559 -6.326548e-01 -0.560265053 -0.8766661339
## [673,] 1.155677451 -1.813988e+00 2.077848745 0.2743834419
## [674,] 0.086775842 -8.986864e-01 -0.175154349 -0.4870835529
## [675,] -0.002942816 -6.960228e-01 -0.651500424 -0.5188756549
## [676,] -1.159036581 -6.994181e-01 -0.812703637 0.0524500399
## [677,] -0.972344416 -8.527549e-01 -0.444772069 0.1879251564
## [678,] -1.133892510 -6.965134e-01 -0.832958337 0.0779301898
## [679,] 0.012533763 -1.102419e+00 0.289221840 1.0400738556
## [680,] 6.998627691 1.444969e+00 -4.090566359 4.8681815038
## [681,] -0.984370140 -8.548511e-01 -0.480450672 0.1791347371
## [682,] 1.553442650 -4.556364e-01 -1.009282178 -0.6540531709
## [683,] -1.083610902 -7.636713e-01 -0.721410099 0.1113621228
## [684,] -0.803362453 -4.458344e-01 -1.377491528 0.4513795929
## [685,] 1.216658426 -1.486336e+00 1.251302961 0.4214907038
## [686,] 0.261414191 -6.636537e-01 -0.773558933 -0.2577556947
## [687,] -0.888565745 -4.912595e-01 -1.322663590 0.3631889464
## [688,] -1.099240251 -7.535350e-01 -0.794369109 0.1030098011
## [689,] -1.155472038 -7.452854e-01 -0.833533029 0.0536580015
## [690,] 2.821793622 4.448814e-01 -2.820615590 0.7528077487
## [691,] 1.433291920 -6.757018e-01 -0.631770555 -0.8139834714
## [692,] -1.482205664 -4.032523e-01 -1.685528853 -0.1615954630
## [693,] 0.158660015 -1.128851e+00 0.244886512 1.1790375756
## [694,] -0.963751634 -9.284743e-01 -0.436369540 0.1892147819
## [695,] 1.888538554 -1.511103e+00 1.272242080 -0.5978844599
## [696,] 0.690093405 -1.462325e+00 0.986932334 -0.0527805396
## [697,] -0.417764311 -1.376859e+00 0.638825715 0.5854839107
## [698,] -0.984850845 -9.169140e-01 -0.504124558 0.1754262934
## [699,] 2.584799578 -8.623859e-01 -0.060126687 0.2127265085
## [700,] -0.478123375 -1.342897e+00 0.522965888 0.5401757643
## [701,] 3.102080281 4.143766e-01 -2.800251538 1.0129772536
## [702,] 1.182737102 -9.558592e-01 -0.166684789 -1.1084000581
## [703,] -1.072536169 -7.626468e-01 -0.910796267 0.1363027354
## [704,] -0.955041636 -9.613399e-01 -0.456529306 0.1962815459
## [705,] -0.925267239 -9.875833e-01 -0.401849003 0.2180463157
## [706,] 0.475318729 -1.135086e+00 0.124171869 -0.1628846478
## [707,] 0.495651400 -1.338467e+00 0.569060573 -0.1941612479
## [708,] 1.381516224 -1.139829e+00 0.224173284 -0.9657731242
## [709,] 2.311258290 -7.367015e-02 -1.956406086 0.1635146286
## [710,] -0.948601544 -8.765794e-01 -0.699664731 0.2277690572
## [711,] 1.151800604 -6.198526e-01 -1.002007785 -1.0465876633
## [712,] 0.878455458 -7.341962e-01 -0.813932089 -1.3278861236
## [713,] 1.858339431 -1.172889e+00 0.346965625 -0.5283490280
## [714,] -0.819018208 -1.081294e+00 -0.258014501 0.2996128561
## [715,] 0.688981072 -1.531922e+00 0.960871938 -0.0575166816
## [716,] -1.122143186 -8.647112e-01 -0.818033511 0.0741625310
## [717,] 3.669729059 -1.072092e-01 -1.681698141 1.4203989990
## [718,] -0.044510534 -9.733359e-01 -0.453210873 -0.5957527047
## [719,] -0.886918833 -9.536771e-01 -0.601668681 0.2721696809
## [720,] -0.725136013 -1.203759e+00 -0.024637885 0.3603621852
## [721,] -0.367303806 -3.870681e-01 -1.845066738 -0.7462898510
## [722,] -1.184070695 -8.423022e-01 -0.937042614 0.0266741973
## [723,] 0.183811961 -1.141701e+00 -0.081420626 -0.4225541671
## [724,] 0.634920514 -1.517245e+00 0.832172770 -0.0974817979
## [725,] 1.282767140 -7.217497e-01 -0.882368829 -0.9405468472
## [726,] -1.079345210 -9.184339e-01 -0.785091044 0.1076192352
## [727,] 0.167474295 -1.024224e+00 -0.382674369 -0.4054469874
## [728,] -0.413580263 -1.487983e+00 0.592147569 0.5839258256
## [729,] 0.086689843 -8.909069e-01 -0.713160693 -0.4455727572
## [730,] -0.946223572 -1.052390e+00 -0.499358920 0.2004344227
## [731,] 3.226750476 -2.560086e-02 -2.084981619 1.0401875304
## [732,] -1.210735601 -6.815184e-01 -1.393075716 0.0493589973
## [733,] 0.321816137 -1.156865e+00 -0.114476847 -0.2911869718
## [734,] -0.123343401 -9.248412e-01 -0.728087996 -0.6451846409
## [735,] -0.123088277 -9.283772e-01 -0.729677036 -0.6451113335
## [736,] -0.748627551 -1.115520e+00 -0.376244957 0.3721766712
## [737,] 0.018932207 -1.484221e+00 0.586542903 0.9923568857
## [738,] 6.985246573 1.263133e+00 -4.239929609 4.8521208906
## [739,] -0.972453838 -1.061105e+00 -0.570617914 0.1804238152
## [740,] -0.972198713 -1.064641e+00 -0.572206955 0.1804971226
## [741,] 0.870619317 -7.735843e-01 -1.002918543 -1.3240951149
## [742,] 1.847633836 -8.668120e-01 -0.607358119 -0.4408460647
## [743,] 3.612721586 3.643466e-01 -2.983351248 1.5041835490
## [744,] -0.873389081 -1.039180e+00 -0.646352341 0.2813571441
## [745,] -0.773326669 -1.244933e+00 -0.180001113 0.3234086817
## [746,] 2.713150586 -1.709368e+00 1.395910955 0.1538451502
## [747,] -1.048584915 -8.437507e-01 -1.143001079 0.1699480879
## [748,] 0.077476717 -1.137098e+00 -0.349942247 -0.5019712480
## [749,] 1.063463414 -6.206092e-01 -1.378097018 -1.1012870010
## [750,] -0.774136942 -1.263458e+00 -0.186500335 0.3216300748
## [751,] -0.535200740 -4.949199e-01 -1.924508291 -0.9072951568
## [752,] -1.421766013 -6.664581e-01 -1.658692449 -0.1281154625
## [753,] -0.696155941 -1.312119e+00 -0.091329459 0.3839263175
## [754,] -0.996805309 -1.090894e+00 -0.651652423 0.1612109846
## [755,] 1.206281447 -1.329338e+00 0.238851892 0.5015800000
## [756,] 1.139995364 -2.018414e+00 1.741310693 0.2685624882
## [757,] -0.856340179 -1.218237e+00 -0.369598759 0.2617673171
## [758,] -0.275991208 -9.006932e-01 -1.039825359 -0.7633744173
## [759,] -0.683729983 -1.363585e+00 -0.031683817 0.3869045546
## [760,] 1.858874462 -8.237790e-01 -0.870767566 -0.4066904279
## [761,] -0.888123003 -1.107016e+00 -0.660145635 0.2629906265
## [762,] -0.496741679 -1.541412e+00 0.371584418 0.5179729492
## [763,] -1.086989678 -1.056184e+00 -0.832042548 0.0927622678
## [764,] 2.343729847 -7.459586e-01 -0.982329029 0.0651819350
## [765,] -1.192687178 -9.676194e-01 -1.068526045 0.0183495141
## [766,] 2.265803385 -1.304738e+00 0.219856334 -0.1453304940
## [767,] 1.048035464 -8.656784e-01 -1.009158157 -1.1638877815
## [768,] -0.797723040 -1.303855e+00 -0.272301966 0.3026371663
## [769,] -0.827416484 -1.042219e+00 -0.866991267 0.3412415598
## [770,] -0.733555480 -1.354471e+00 -0.166143175 0.3509166670
## [771,] -0.945168753 -1.166512e+00 -0.634722307 0.2024338780
## [772,] -0.288250434 -1.736005e+00 0.750061134 0.6698316203
## [773,] 0.814871492 -1.865330e+00 1.175358968 0.0176524422
## [774,] -0.097991496 -1.908868e+00 1.152474289 0.8044526134
## [775,] 0.879839211 -1.742309e+00 0.897299849 0.1100862886
## [776,] -1.133822115 -1.053137e+00 -0.971401117 0.0594743289
## [777,] -0.964496955 -1.196176e+00 -0.629796744 0.1814222845
## [778,] -1.443311115 -7.351431e-01 -1.757206404 -0.1465219120
## [779,] -0.400568913 -1.668318e+00 0.511106504 0.5876645020
## [780,] 3.633748327 -5.243710e-01 -1.362059971 1.3281537712
## [781,] -1.279645811 -9.570783e-01 -1.261037592 -0.0481052889
## [782,] 1.062011501 -6.719689e-01 -1.577157870 -1.0916866788
## [783,] 1.078582921 -1.084849e+00 -0.669265927 -1.1788291154
## [784,] -0.831933196 -1.098638e+00 -0.885042952 0.3337605954
## [785,] -0.942621199 -1.251093e+00 -0.579526243 0.1937406098
## [786,] -0.939982194 -1.253664e+00 -0.582767833 0.1962655101
## [787,] -1.134045656 -1.093260e+00 -0.986780172 0.0571647356
## [788,] -1.157766858 -7.598792e-01 -1.739074832 0.1192435941
## [789,] -1.456670970 -6.419354e-01 -2.070409705 -0.1276757842
## [790,] 2.145834994 -1.267355e+00 -0.114535001 -0.2299126092
## [791,] -1.580848675 -7.341684e-01 -1.910419160 -0.2644251222
## [792,] -0.150842366 -9.044191e-01 -1.328060364 -0.6237663644
## [793,] -0.280152778 -9.079211e-01 -1.280256931 0.8995125233
## [794,] 1.512357897 -1.469144e+00 0.165488942 -0.8648070220
## [795,] -0.929988526 -1.282370e+00 -0.602405279 0.2048414700
## [796,] 0.343327747 -1.516080e+00 0.088573930 -0.3156405214
## [797,] 1.597199960 -1.619014e+00 0.486101539 -0.8214537064
## [798,] -0.750766590 -1.428680e+00 -0.270485900 0.3365891873
## [799,] -0.796021803 -1.415985e+00 -0.317258983 0.2985257472
## [800,] -0.594080911 -1.337838e+00 -0.458660304 0.5060136196
## [801,] 0.203711673 -1.417507e+00 -0.205365783 -0.4168361914
## [802,] 0.277363817 -1.287330e+00 -0.488032922 -0.3152821790
## [803,] 1.649221221 -3.025992e-01 -2.474274164 -0.4397701112
## [804,] -0.441259883 -1.706455e+00 0.350544356 0.5584237097
## [805,] -0.882055985 -1.368676e+00 -0.496289542 0.2349122928
## [806,] -0.759551984 -1.461352e+00 -0.275693171 0.3260417372
## [807,] 1.271134109 -1.440836e+00 -0.069311904 -1.0720090402
## [808,] -1.125360145 -1.166168e+00 -1.022456981 0.0621266142
## [809,] 0.346644365 -1.562048e+00 0.067916404 -0.3146875255
## [810,] 1.473522758 -1.161811e+00 -0.674243856 -0.8124410717
## [811,] -0.897827125 -1.362236e+00 -0.570562443 0.2262250883
## [812,] -0.337414363 -1.589524e+00 0.037061330 0.6897052804
## [813,] 0.205153009 -1.495258e+00 -0.146578500 -0.4262889726
## [814,] -1.181863591 -7.949349e-01 -1.912552594 0.1068793269
## [815,] -0.782156368 -1.468598e+00 -0.349465693 0.3097600025
## [816,] 1.708951874 -7.763343e-01 -1.536514551 -0.4934624534
## [817,] -0.980384419 -1.313520e+00 -0.752003246 0.1661872822
## [818,] 0.409629411 -1.291991e+00 -0.602316798 -0.1822846596
## [819,] -0.433888498 -1.792722e+00 0.400984269 0.5545022267
## [820,] -1.107847459 -9.254451e-01 -1.665404458 0.1471983066
## [821,] 2.493261296 -1.447442e+00 0.061240882 0.0695234595
## [822,] -0.857604882 -1.420642e+00 -0.537246615 0.2568438333
## [823,] 2.057556899 -1.145903e+00 -0.713802217 -0.2576069804
## [824,] -0.811651924 -1.409309e+00 -0.571926417 0.3037239376
## [825,] -1.191498634 -7.002187e-01 -2.228338003 0.1295560686
## [826,] -1.017888051 -1.326800e+00 -0.815447335 0.1345830919
## [827,] -0.427076764 -1.091161e+00 -1.226420761 0.7419870546
## [828,] -0.433169522 -6.298359e-01 -2.334174270 -0.7909248267
## [829,] -1.007587159 -1.333546e+00 -0.826824653 0.1446093856
## [830,] 2.616428922 -1.776940e+00 0.730475618 0.1078251194
## [831,] -1.124415249 -1.145501e+00 -1.285790155 0.0847487561
## [832,] 1.660895701 -2.638640e+00 2.500609379 0.6512292600
## [833,] -0.082889088 -2.117471e+00 1.058686197 0.8088292323
## [834,] -0.976891195 -1.373973e+00 -0.778431932 0.1665656438
## [835,] -1.112214099 -1.259105e+00 -1.069699016 0.0705413449
## [836,] 2.007502904 -1.248148e+00 -0.620729609 -0.3202068585
## [837,] -0.064784515 -2.124695e+00 1.040487041 0.8266918023
## [838,] -0.691753486 -1.619677e+00 -0.214416917 0.3723833964
## [839,] 0.505869925 -1.900860e+00 0.642074527 1.4131773083
## [840,] 1.202262555 -1.380850e+00 -0.528566802 -1.0970782185
## [841,] -1.058796448 -1.328632e+00 -0.961736924 0.1070093352
## [842,] -0.322836827 -1.156042e+00 -1.279439817 -0.8100994445
## [843,] 1.133988130 -1.315431e+00 -0.715672201 -1.1418602667
## [844,] -0.681264431 -1.671927e+00 -0.153428579 0.3733697144
## [845,] -1.133520411 -1.269464e+00 -1.145783568 0.0554054894
## [846,] -0.442067137 -1.859633e+00 0.291792253 0.5496528455
## [847,] 0.015407338 -1.331369e+00 -0.794076094 1.1065955355
## [848,] -0.634683534 -1.702282e+00 -0.114635402 0.4118511748
## [849,] 0.285275595 -1.351185e+00 -0.790088070 -0.2900327961
## [850,] 1.574736096 -8.504398e-01 -1.721685880 -0.6119198689
## [851,] -1.228780663 -8.792652e-01 -2.085744896 0.0689668172
## [852,] 0.463852331 -2.623779e+00 2.110763763 1.2028488555
## [853,] -1.278437149 -1.079968e+00 -1.670483249 -0.0258097250
## [854,] 0.842420702 -9.882701e-01 -1.603343348 -1.3224611632
## [855,] 0.654223977 -1.778200e+00 0.173399349 -0.0503996412
## [856,] -1.094341115 -1.328292e+00 -1.111744750 0.0849516626
## [857,] 3.155845582 -1.067473e+00 -0.986041843 0.8047859077
## [858,] 1.676518796 -1.878213e+00 0.498438361 -0.7687473291
## [859,] -0.806404724 -1.430572e+00 -0.855188229 0.3285018221
## [860,] -1.315847654 -1.189920e+00 -1.500969594 -0.0829388885
## [861,] -0.388247613 -1.857763e+00 0.156568173 0.6108314231
## [862,] -0.164923241 -1.338187e+00 -1.033488862 -0.6948131255
## [863,] 1.585859838 -1.829138e+00 0.324025965 -0.8369278606
## [864,] -0.543822331 -9.264707e-01 -1.965067827 0.7015929337
## [865,] -0.061743751 -1.411305e+00 -0.879053396 -0.6152689326
## [866,] 0.445721480 -1.833350e+00 0.148937804 -0.2495716807
## [867,] 0.033531936 -1.483985e+00 -0.717726686 -0.5436639829
## [868,] 1.400922802 -1.332968e+00 -0.859288164 -0.8807363173
## [869,] -1.230128283 -1.257283e+00 -1.419636199 -0.0138188536
## [870,] -1.464010257 -1.043680e+00 -1.949510904 -0.1765365852
## [871,] -0.882420724 -1.574355e+00 -0.665973453 0.2307252723
## [872,] 1.877331620 -1.709184e+00 0.032530073 -0.5302122319
## [873,] 0.916272507 -1.616773e+00 -0.376915299 -1.3974307970
## [874,] -0.276748825 -2.067893e+00 0.521312648 0.6710417075
## [875,] 0.184634241 -1.486566e+00 -0.757038404 -0.3984484843
## [876,] -1.199102366 -1.339518e+00 -1.297563930 -0.0005676884
## [877,] -1.026717184 -1.446655e+00 -1.034813465 0.1331934991
## [878,] -1.077883227 -1.436354e+00 -1.077489052 0.0890513344
## [879,] -1.246698138 -1.300386e+00 -1.422271506 -0.0327500064
## [880,] 2.497760150 -1.798990e+00 0.281733948 0.0283301695
## [881,] 0.125468768 -1.428376e+00 -0.954694846 -0.4344300352
## [882,] -0.682365979 -1.776005e+00 -0.283060583 0.3737187430
## [883,] -0.960833034 -1.511133e+00 -0.935493380 0.1824820944
## [884,] 0.026018474 -1.583559e+00 -0.659792690 -0.5632712381
## [885,] -0.917108748 -1.604691e+00 -0.738430291 0.2010713479
## [886,] -0.259236139 -1.827171e+00 -0.121634829 0.7561133998
## [887,] 0.028404006 -1.558848e+00 -0.742415580 -0.5527188461
## [888,] 0.823587602 -1.223622e+00 -1.408104200 -1.3742562540
## [889,] -1.058750176 -1.260661e+00 -1.566682323 0.1586458981
## [890,] 1.021346226 -1.393447e+00 -1.010889966 -1.2319225497
## [891,] -0.709986046 -1.785282e+00 -0.353356141 0.3522788569
var <- get_pca_var(tita_pca)
var
## Principal Component Analysis Results for variables
## ===================================================
## Name Description
## 1 "$coord" "Coordinates for the variables"
## 2 "$cor" "Correlations between variables and dimensions"
## 3 "$cos2" "Cos2 for the variables"
## 4 "$contrib" "contributions of the variables"
plot(eigen_tita, xlab = "Component number", ylab = "Component variance", type = "l", main = "Scree diagram")

pairs.panels(tita[-1],
gap = 0,
bg = c("red", "blue")[tita$Survived],
pch=21)

diag(cov(tita_pca$x))
## PC1 PC2 PC3 PC4
## 1.6655736 1.0148552 0.9105435 0.4090277
xlim <- range(tita_pca$x[,1])
plot(tita_pca$x,xlim=xlim,ylim=xlim)

#Correlation circle
head(var$coord, 4)
## Dim.1 Dim.2 Dim.3 Dim.4
## PassengerId 0.08473538 -0.91673233 -0.3902258 0.01206576
## Pclass -0.88233335 -0.05954218 0.0526880 0.46386051
## Age 0.51332500 -0.33062032 0.7704299 0.18337223
## Fare 0.78509800 0.24819741 -0.4024041 0.40011266
fviz_eig(tita_pca, addlabels = TRUE)

fviz_pca_var(tita_pca,col.var = "cos2",
gradient.cols = c("#FFCC00", "#CC9933", "#660033", "#330033"),
repel = TRUE)

biplot(tita_pca)

head(var$cos2, 4)
## Dim.1 Dim.2 Dim.3 Dim.4
## PassengerId 0.007180084 0.840398167 0.152276167 0.0001455826
## Pclass 0.778512135 0.003545271 0.002776025 0.2151665693
## Age 0.263502553 0.109309798 0.593562274 0.0336253747
## Fare 0.616378869 0.061601952 0.161929040 0.1600901383
corrplot(var$cos2, is.corr=FALSE)

fviz_pca_var(tita_pca, col.var = "cos2",
gradient.cols = c("#00FF00", "#FF0000", "#FC4E07"),
repel = TRUE
)

#Contributions of Pc
head(var$contrib, 4)
## Dim.1 Dim.2 Dim.3 Dim.4
## PassengerId 0.4310877 82.8096636 16.7236563 0.03559235
## Pclass 46.7413818 0.3493376 0.3048756 52.60440497
## Age 15.8205285 10.7709750 65.1876896 8.22080696
## Fare 37.0070019 6.0700239 17.7837785 39.13919571
corrplot(var$contrib, is.corr=FALSE)

fviz_pca_var(tita_pca, col.var = "contrib",
gradient.cols = c("#00FF00", "#E7B800", "#FC4E07")
)

# Contributions of PC1
fviz_contrib(tita_pca, choice = "var", axes = 1, top = 10)

# Contributions of PC2
fviz_contrib(tita_pca, choice = "var", axes = 2, top = 10)

fviz_contrib(tita_pca, choice = "var", axes = 1:2, top = 10)

#Graphs of ind
ind <- get_pca_ind(tita_pca)
ind
## Principal Component Analysis Results for individuals
## ===================================================
## Name Description
## 1 "$coord" "Coordinates for the individuals"
## 2 "$cos2" "Cos2 for the individuals"
## 3 "$contrib" "contributions of the individuals"
# Coordinates of individuals
head(ind$coord)
## Dim.1 Dim.2 Dim.3 Dim.4
## 1 -1.2247900 1.591832 0.4930322 0.07778189
## 2 1.6250079 1.666786 0.7454514 -0.54722098
## 3 -1.1035208 1.495017 0.7130724 0.16745240
## 4 1.3242491 1.641688 0.7209206 -0.83090194
## 5 -0.8479155 1.279294 1.2236516 0.35194323
## 6 -1.5472522 1.858991 -0.2112837 -0.15078957
# Quality of individuals
head(ind$cos2)
## Dim.1 Dim.2 Dim.3 Dim.4
## 1 0.3502336 0.5916014 0.056752524 0.001412510
## 2 0.4208897 0.4428094 0.088571904 0.047729055
## 3 0.3052526 0.5602611 0.127457556 0.007028798
## 4 0.3098898 0.4762657 0.091842312 0.122002158
## 5 0.1807915 0.4115412 0.376520245 0.031147127
## 6 0.4045803 0.5840329 0.007544221 0.003842600
# Contributions of individuals
head(ind$contrib)
## Dim.1 Dim.2 Dim.3 Dim.4
## 1 0.10108383 0.2802289 0.029962099 0.001660071
## 2 0.17793828 0.3072399 0.068495213 0.082166559
## 3 0.08205772 0.2471783 0.062674209 0.007694003
## 4 0.11816744 0.2980572 0.064061402 0.189438897
## 5 0.04844664 0.1809917 0.184559823 0.033987158
## 6 0.16131720 0.3821844 0.005502416 0.006238960
fviz_pca_ind(tita_pca, col.ind = "cos2",
gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
repel = TRUE # Avoid text overlapping (slow if many points)
)

fviz_pca_ind(tita_pca,
geom.ind = "point",
col.ind = tita$Survived, # color by groups
palette = c("#00FF00", "#E7B800", "#FC4E07"),
addEllipses = TRUE, # ellipses
legend.title = "Survivorship"
)

ind.p <- fviz_pca_ind(tita_pca, geom = "point", col.ind = tita$Survived)
ggpubr::ggpar(ind.p,
title = "Principal Component Analysis",
subtitle = "titanic",
xlab = "PC1", ylab = "PC2",
legend.title = "Survivorship", legend.position = "top",
ggtheme = theme_gray(), palette = "jco"
)

#anova testing
tita_anova <- aov(PassengerId+Pclass ~ Survived, data = tita)
summary(tita_anova)
## Df Sum Sq Mean Sq F value Pr(>F)
## Survived 1 2198 2198 0.033 0.856
## Residuals 889 58930554 66289